home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / CYCLON.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.1 KB  |  396 lines

  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 30 :
  10. 35 [143] +++ INPUT SECTION +++
  11. 40 [151]UO,0:UR$[178]"":UI$[178]""
  12. 42 [139]UL[178]0[167]UL[178]80
  13. 45 [153]"  CMDCMD";:[151]UC,0
  14. 50 [161]UI$:[139]UI$[178]""[167]50
  15. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  16. 60 [139]UI$[178][199](20)[167]105
  17. 62 [139] [195](UR$)[178][177]UL[167]50
  18. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  19. 70 UR$[178]UR$[170]UI$
  20. 75 [153]UI$;
  21. 80 [137]50
  22. 85 [143] +++ CHECK FOR HELP REQUEST +++
  23. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  24. 95 [139]UF[178]1[167][141]240
  25. 100 UF[178]0:[153]:[142]
  26. 102 [143] ++ CHECK DELETE ++
  27. 105 [139][195](UR$)[179]1[167]50
  28. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  29. 115 [153]"CMD  CMDCMD";:[137]50
  30. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  31. 125 [139][195](US$)[178]0[167]150
  32. 130 [129]US[178]1[164][195](US$)
  33. 135 [139]UI$[178][202](US$,US,1)[167][142]
  34. 140 [130]
  35. 145 UI$[178]"":[142]
  36. 150 [143] ** STANDARD INPUT **
  37. 152 [139][198](UI$)[178]46[167][142]
  38. 155 [139]UI$[178][199](32)[167][142]
  39. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  40. 165 [142]
  41. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  42. 175 [142]
  43. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  44. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  45. 187 [142]
  46. 190 UI$[178]"":[142]
  47. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  48. 197 [141]250
  49. 200 [141]245
  50. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  51. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  52. 215 UZ[178]1:UV%[178][194](UT)
  53. 216 [137]300
  54. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  55. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  56. 219 [153]"LOAD";
  57. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  58. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  59. 230 [151]U1,U1%
  60. 232 [151]U2,U2%
  61. 233 [151]U4,U4%
  62. 234 [151]U3,U3%[171]1
  63. 235 [137]35
  64. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  65. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  66. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  67. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  68. 255 [142]
  69. 300 [143] ** MENU **
  70. 301 :
  71. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  72. 303 :
  73. 305 [153]"                MENU"
  74. 310 [153]" --------------------------------------"
  75. 315 [153]"       1.   BEGIN CYCLON FIGHTER
  76. 320 PRINT"       2.   STUDENT INSTRUCTIONS"
  77. 325 PRINT"       3.   TEACHER INSTRUCTIONS"
  78. 335 PRINT"       4.   QUIT"
  79. 340 PRINT" --------------------------------------"
  80. 345 PRINT"       PRESS A NUMBER KEY (1-4) ";
  81. 350 UL=1:US$="1234":GOSUB35:REM INPUT ROUTINE
  82. 352 US$=""
  83. 355 ONVAL(UR$)GOSUB1000,400,500,396
  84. 360 GOTO300
  85. 395 REM ** RE-ENABLE STOP KEY AND END **
  86. 396 IFPEEK(50003)<>1ANDPEEK(50003)<>160ANDPEEK(50003)<>0THEN399
  87. 397 SYSUU+71:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  88. 398 PRINT"[154][147]":END
  89. 399 GOSUB875:RETURN
  90. 400 REM ** STUDENT INSTRUCTIONS **
  91. 405 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,0:POKE53280,0
  92. 410 UP=0:UG$="[211]TUDENT [201]NST":GOSUB850
  93. 411 GOSUB 2790
  94. 412 GOSUB 1200
  95. 490 IFUZ=1THENSYSUP%:GOTO217
  96. 499 RETURN
  97. 500 REM ** TEACHER INSTRUCTIONS **
  98. 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10
  99. 502 UP=0:UG$="[212]EACHER [201]NST":GOSUB850
  100. 503 PRINT"      [212]O THE BEST OF OUR KNOWLEDGE,"
  101. 504 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  102. 505 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  103. 506 PRINT"   PLEASE CONTACT:"
  104. 507 PRINT"      [195]OMMODORE [194]USINESS [205]ACHINES"
  105. 508 PRINT"          3370 [208]HARMACY [193]VE.
  106. 509 [153]"          ATNGINCOURT, (null)NTARIO"
  107. 510 [153]"          LENANADA   (null)1(null) 2(null)4"
  108. 511 [153]"          (416) 499-4292"
  109. 512 UP[178]1:[141] 835:[141] 850:
  110. 513 [153]"     (null)ROGRAM (null)AME: LENYCLON FIGHTER
  111. 514 PRINT"     [215]RITTEN [194]Y  : [213]NKNOWN
  112. 515 [153]"     (null)PGRADED PEEKY :          
  113. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  114. 519 [153]"         (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
  115. 520 PRINT"         [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
  116. 521 [141]835
  117. 590 [139]UZ[178]1[167][158]UP%:[137]217
  118. 599 [142]
  119. 600 [143] ** PROGRAM MODIFICATION INST **
  120. 601 [153]"LOAD":[151]UT,UL%
  121. 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  122. 660 [141]835
  123. 690 [139]UZ[178]1[167][158]UP%:[137]217
  124. 699 [142]
  125. 700 [143] ** TO USE 8032 LOAD CBM4032 **
  126. 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  
  127. 720 PRINT"      LOAD THE 'CBM 4032' PROGRAM"
  128. 730 SYSUU+71
  129. 740 END
  130. 800 REM ** T I T L E   P A G E **
  131. 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
  132. 804 FORI=1TO38:PRINT"[166][146]";:NEXT
  133. 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  134. 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  135. 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  136. 812 PRINT"[169]  [146]
  137. 814 [153]" WAIT   WAITSTEP
  138. 816 PRINT" [146]  [163][223]
  139. 818 [153]"(null)  WAIT
  140. 820 PRINT"C O M M O D O R E
  141. 822 [153]"EDUCATIONAL
  142. 824 PRINT"SOFTWARE
  143. 826 [143] ** COMMODORE LOGO **
  144. 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
  145. 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
  146. 830 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
  147. 832 [137]300
  148. 835 [143] ** SPACE BAR PRESS **
  149. 840 [151]UO,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  150. 844 [161]UI$:[139]UI$[179][177]" "[167]844
  151. 846 [142]
  152. 850 [143] ** PAGE DESIGN ROUTINE **
  153. 852 UP[178]UP[170]1
  154. 855 [153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  155. 860 [153]" --------------------------------------"
  156. 864 [139]UH[179][177]0[167]870
  157. 865 [153][200](UD$,24);[200](UP$,7);"HELP - PRESS   H <RETURN>"
  158. 870 UH[178]0:[153]"":[142]
  159. 875 [143] ** PLEASE WAIT REMARK **
  160. 880 [153][200](UD$,24);"           ONE MOMENT PLEASE...     "
  161. 885 [142]
  162. 900 [143] ** SET UP VARIABLES **
  163. 901 UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
  164. 902 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:UO[178]158:[151] 50003,0
  165. 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  166. 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198
  167. 905 UD$[178]""
  168. 906 UP$[178]"                                       "
  169. 907 UT$[178]" LENYCLON PEEKATTLE CLOSECLOSECLOSECLOSE":[143] PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  170. 908 [142]
  171. 910 [143] ** SET VARIABLES **
  172. 915 [141]900
  173. 920 [143] ** CHECK FOR 8032 **
  174. 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  175. 930 [139][194](UB[170]40)[179][177]96[167][141]700
  176. 931 [143] ** MEMORY CHECK **
  177. 932 [139] [184](0)[177]2000[167]937
  178. 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  179. 934 [153]"MEMORY TO RUN THIS PROGRAM !"
  180. 935 [158]UU[170]71
  181. 936 [128]
  182. 937 [153]"LOAD":[139][194](50003)[178]0[167]962
  183. 940 [143] ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  184. 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
  185. 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
  186. 943 [151]1104,145:[151]1105,234:[151]1082,234
  187. 945 [139][194](50003)[179][177]160[167]955
  188. 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
  189. 955 [139][194](50003)[179][177]1[167]990
  190. 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
  191. 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
  192. 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
  193. 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
  194. 965 [158]UU[170]48:[143] DISABLE STOP KEY
  195. 970 [141]800:[143] TITLE
  196. 980 [137]300:[143] MENU
  197. 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
  198. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE **
  199. 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,6
  200. 1010 [156]:[141]900
  201. 1020 [143]
  202. 1030 [151]UT,UL%
  203. 1040 [153]"LOADLEN (null) LEN (null) (null)CLOSE(null)  PEEK ATN (null) (null) (null) VAL"
  204. 1100 [153]" (null)OUR SPEED DETERMINES DIFFICULTY:"
  205. 1110 [153]" 1 = SLOW."
  206. 1120 [153]" 2 = MEDIUM."
  207. 1130 [153]" 3 = FAST."
  208. 1140 [153]" (null)ELECT SPEED NOW: ";
  209. 1150 US$[178]"123":UL[178]1:[141]35:Q$[178]UR$
  210. 1160 [139] Q$ [179]"4" [175] Q$ [177] "0" [167] 1280
  211. 1170 [153]" (null)NLY DIFFICULTY 1 - 3 ALLOWED"
  212. 1180 [143]
  213. 1190 [137]1140
  214. 1200 [141] 850:[153]" ASCIRE BY PRESSING THE FWAIT KEY."
  215. 1210 [153]" ATNIM BY PRESSING THE 4ON86CMDCMD2ONWAIT KEYS"
  216. 1220 [153]" 4WAIT MAKES THE TARGET MOVE LEFT."
  217. 1230 [153]" 8WAIT MAKES THE TARGET MOVE UP."
  218. 1240 [153]" 6WAIT MAKES THE TARGET MOVE RIGHT.
  219. 1250 PRINT" 2[146] MAKES THE TARGET MOVE DOWN."
  220. 1260 GOSUB 835:RETURN
  221. 1270 GET W$:IFW$=""THEN1290
  222. 1280 Q=VAL(Q$)
  223. 1290 REM
  224. 1300 REM
  225. 1310 V$=""
  226. 1320 H$=""
  227. 1330 R$="[171][192][218][192][179][157][157][157][145][178]"
  228. 1340 RE$="     [157][157][157][145] "
  229. 1350 G$="[192][192][219][157][145][213][219][201][157][219][192][192][157][157][157][157][157][202][219][203][157][157][221][157][221][157][145][145][145][145][145][221][157][145][221]
  230. 1360 [153]"LOAD":[151]UT,UU%
  231. 1370 [141]2100
  232. 1380 TI$[178]"000000"
  233. 1390 [153]"LOAD";
  234. 1400 [153]"========================================";
  235. 1410 [129] W[178]1 [164] 22
  236. 1420 [153]"-<";
  237. 1430 [130]
  238. 1440 [153]">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>";
  239. 1450 V[178][181]([187](1)[172]18)[170]3:H[178][181]([187](1)[172]36)[170]2:VO[178]18:HO[178]33
  240. 1460 [153][200](V$,25);"HITS-";HS;"   SHOTS-";SHOTS;"   REMAINING -";RR[171]HS;""
  241. 1470 [153][200](V$,VO);[200](H$,HO);RE$
  242. 1480 [153]G$
  243. 1490 [153][200](V$,V);[200](H$,H);R$
  244. 1500 [139] TI$[177]"000045"[167]2030
  245. 1510 [161] I$:[139]I$[178]""[167] 1560
  246. 1520 D$[178]I$
  247. 1530 [139]D$[178]"2"[176]I$[178]"4"[176]I$[178]"8"[176]I$[178]"6"[167]1560
  248. 1540 [139]D$[178]"F"[167][137] 1740
  249. 1550 [137] 1510
  250. 1560 VO[178]V:HO[178]H
  251. 1570 [145]([197](D$)[173]2)[137]1580,1590,1600,1610
  252. 1580 V[178]V[170]Q:[137]1620
  253. 1590 H[178]H[171](Q[170]1):[137]1620
  254. 1600 H[178]H[170](Q[170]1):[137]1620
  255. 1610 V[178]V[171]Q
  256. 1620 RV[178][181]([187](1)[172]3)[171]1
  257. 1630 RH[178][181]([187](1)[172]3)[171]1
  258. 1640 V[178]V[170]RV:H[178]H[170]RH
  259. 1650 [139]V[179]3[167] V[178]3
  260. 1660 [139]H[179]1[167]H[178]1
  261. 1670 [139] V[177]23[167]V[178]23
  262. 1680 [139] H[177]34[167]H[178]34
  263. 1690 [139]Q[178]1[175]TI$[178]"000035"[167]2560
  264. 1700 [139]Q[178]2[175]TI$[178]"000025"[167]2560
  265. 1710 [139]Q[178]3[175]TI$[178]"000015"[167]2560
  266. 1720 [139]Q[178]3[175]TI$[178]"000030"[167]2560
  267. 1730 [137] 1470
  268. 1740 [143] FIRE
  269. 1750 SHOTS[178]SHOTS[170]1
  270. 1760 [153][200](V$,21);[163]28);
  271. 1770 [153]"(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON(null)CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON "
  272. 1780 [153][200](V$,21);"(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON(null)ON ON ON ON ON ON ON "
  273. 1790 [153][200](V$,21);[163]28);
  274. 1800 [153]" CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON CMDCMDON "
  275. 1810 [153][200](V$,21);" ON ON ON ON ON ON ON ON ON ON ON ON ON ON ON ON "
  276. 1820 [139] [194](33187)[178] 114[167] 1900
  277. 1830 [139] [194](33187)[178] 90 [167] 1900
  278. 1840 [139] [194](33267)[178] 90 [167] 1900
  279. 1850 [139] [194](33226)[178] 90 [167] 1900
  280. 1860 [139] [194](33228)[178] 90 [167] 1900
  281. 1870 [153][200](V$,25);"HITS-";HS;"   SHOTS-";SHOTS;"   REMAINING -";RR[171]HS;""
  282. 1880 [139]SHOTS[178]50[167]2070
  283. 1890 [137] 1560
  284. 1900 [143]    DIRECT HIT
  285. 1910 HIT$[178]" SPC( CMDCMDCMDONSPC( SPC(CMDCMDCMDSPC( SPC(CMDCMDCMDONONONCMDSPC(   SPC(CMDCMDCMDCMDCMDSPC(   SPC("
  286. 1920 CR$[178]"   CMDCMDCMDON   CMDCMDCMD   CMDCMDCMDCMDONONON     CMDCMDCMDCMDCMD     "
  287. 1930 [129]DH[178]1[164]5
  288. 1940 [153][200](V$,12);[200](H$,18);HIT$
  289. 1950 [129]X[178]1[164]100:[130]
  290. 1960 [153][200](V$,12);[200](H$,18);CR$
  291. 1970 [129]X[178]1[164]100:[130]
  292. 1980 [130]
  293. 1990 HS[178]HS[170]1
  294. 2000 [139]HS[178]RR[167]2420
  295. 2010 TM[178]TM[170][197](TI$)
  296. 2020 TI$[178]"000000":[137]1390
  297. 2030 [153][200](V$,V);[200](H$,H);RE$
  298. 2040 [153][200](V$,18);"THE ENEMY HAS OVER-POWERED YOU"
  299. 2050 [129]X[178]1[164]2000:[130]
  300. 2060 [137]2670
  301. 2070 [153][200](V$,20);"WEAPONS ENERGY DEPLETEDONON"
  302. 2080 [129]X[178]1[164]2000:[130]
  303. 2090 [137]2670
  304. 2100 [153]"LOAD";:[141]2340
  305. 2110 R1$[178]"* ON* CMDCMD* "
  306. 2120 R2$[178]"* ON* CMDCMD* ONONON* CMDCMD* "
  307. 2130 R3$[178]"* ON* CMDCMD* ONONON* CMDCMD* ONONONONON* CMDCMD* CMDCMD* "
  308. 2140 R[178][181]([187](1)[172]3[170]1)
  309. 2150 [145]R[141]2310,2320,2330
  310. 2160 [129]X[178]30[164]19[169][171]1
  311. 2170 [153][200](V$,13);[200](H$,X);RR$
  312. 2180 M[178]M[170]1:[139]M[178]2[167]2230
  313. 2190 [139]R[178]1[167][153][200](V$,25)"        3 CYCLON SHIPS APPROCHING"
  314. 2200 [139]R[178]2[167][153][200](V$,25)"        5 CYCLON SHIPS APPROCHING"
  315. 2210 [139]R[178]3[167][153][200](V$,25)"        8 CYCLON SHIPS APPROCHING"
  316. 2220 [137]2240
  317. 2230 [153][200](V$,25)"                                       ";:M[178]0
  318. 2240 [129]XX[178]1[164]300:[130]
  319. 2250 [130]
  320. 2260 [153][200](V$,20);[200](H$,10);"FIGHTER'S IN RANGE"
  321. 2270 [129]X[178]1[164]1000:[130]
  322. 2280 [153][163]8)"SWITCHING TO ATTACK MODE"
  323. 2290 [129]X[178]1[164]1500:[130]
  324. 2300 [142]
  325. 2310 RR$[178]R1$:RR[178]3:[142]
  326. 2320 RR$[178]R2$:RR[178]5:[142]
  327. 2330 RR$[178]R3$:RR[178]8:[142]
  328. 2340 [153]"OROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROR";
  329. 2350 [129]X[178]1[164]22
  330. 2360 [153]"OROR";
  331. 2370 [130]
  332. 2380 [153]"OROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROROR"
  333. 2390 [153][163]10) "LONG RANGE SCANNER"
  334. 2400 [153][200](V$,13);[200](H$,16);"TANTANTAN(null)TANTANTANCMDCMDCMDCMDON(null)CMDON(null)CMD(null)CMD(null)"
  335. 2410 [142]
  336. 2420 [153][200](V$,22);"ALL CYCLON FIGHTERS DESROYED"
  337. 2430 [153][200](V$,25);"HITS-";HS;"   SHOTS-";SHOTS;"   REMAINING -";RR[171]HS;""
  338. 2440 [129]X[178]1[164]2000:[130]
  339. 2450 [153]"LOAD"
  340. 2460 [153]"GOOD GOING .............!!!!!!"
  341. 2470 [153]"YOU DESTROYED ";HS;" CYLON SHIPS"
  342. 2480 [153]"IN ";TM;" CENTONS"
  343. 2490 [153]"SHOTS FIRED - ";SHOTS
  344. 2500 [153]"PROFICIENCY RATING - ";[181](HS[173]SHOTS[172]10000)[173]100;"%"
  345. 2510 [153]"DO YOU WISH ANOTHER MISSION? ";:US$[178]"YN":UL[178]1:[141]35
  346. 2520 Z$[178]UR$
  347. 2530 [139]Z$[178]"Y"[167]HS[178]0:TM[178]0:SHOTS[178]0:[137]1000
  348. 2540 [139]Z$[178]"N"[167][142]
  349. 2550 [137]2520
  350. 2560 [153][200](V$,VO);[200](H$,HO);RE$
  351. 2570 [153][200](V$,20);[200](H$,4);"YOU HAVE OVERRUN THE ENEMY SHIP"
  352. 2580 [153][163]5)"THE ENEMY IS BEHIND YOU"
  353. 2590 [153][163]5)"ONHIT 'R' TO REVERSE THRUST"
  354. 2600 T[178]TI[170]180
  355. 2610 [161]Z$
  356. 2620 [139]Z$[178]"R"[167][153]"LOAD":[137]1390
  357. 2630 [139]TI[177]T[167]2650
  358. 2640 [137]2610
  359. 2650 [153]"LOADTHE ENEMY HAS MADE A HIT ON YOUR SHIP"
  360. 2660 [153]"FROM BEHIND........!!!!!!"
  361. 2670 [153]"------- YOU HAVE LOST -------
  362. 2680 REM
  363. 2690 REM
  364. 2700 GOSUB835
  365. 2710 REM
  366. 2720 REM
  367. 2730 REM
  368. 2740 REM
  369. 2750 REM
  370. 2760 REM
  371. 2770 REM
  372. 2780 GOTO300
  373. 2790 PRINT" [217]OU ARE IN COMMAND OF A VIPER"
  374. 2800 PRINT" FIGHTERSHIP. [217]OUR LONG RANGE SENSORS"
  375. 2810 PRINT" WILL WARN OF APPROCHING ENEMY CYCLON"
  376. 2820 PRINT" FIGHTERS WHEN THE COMPUTER SWITCHES TO"
  377. 2830 PRINT" ATTACK MODE, THE AUTO-LOCK CIRCUITRY"
  378. 2840 PRINT" WILL KEEP YOU IN RANGE, HOWEVER THE"
  379. 2850 PRINT" FINAL AIMING IS UP TO YOU. [217]OUR
  380. 2860 [153]" WEAPONS ENERGY WILL ALLOW 50 SHOTS."
  381. 2870 [141] 835:[141] 850
  382. 2890 [153]" (null)INCE YOU HAVE THE FASTEST SHIP IN"
  383. 2900 [153]" THE GALAXY, BE PREPARED TO REVERSE"
  384. 2910 [153]" THRUST IN THE EVENT YOU OVERRUN THE"
  385. 2920 [153]" ENEMY (THE COMPUTER WILL PROMPT YOU)."
  386. 2930 [153]" LEFT$OWEVER BE CAREFUL-IF THE CYCLON GETS"
  387. 2940 [153]" BEHIND YOU HIS AUTO-LOCK CIRCUIT WORKS"
  388. 2950 [153]" WELL ALSO, AND THERE WILL NOT BE MUCH"
  389. 2960 [153]" TIME TO ESCAPE HIS LASER BEAM."
  390. 2970 [141] 835:[141] 850
  391. 2990 [153]" STR$URING THE BATTLE YOU WILL HAVE ONLY "
  392. 3000 [153]" 45 CENTONS OF TIME TO TRACK DOWN EACH"
  393. 3010 [153]" FIGHTER BEFORE THE OTHER SHIPS COME TO"
  394. 3020 [153]" HIS RESCUE."
  395. 3030 [141] 835:[142]
  396.